home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / curves / catenary.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  608 b   |  20 lines
  1. .geometry "version 0.1";
  2. v1 = .free(0.304225, 0.028169, .L0, "1");
  3. v2 = .free(-0.0338028, 0.028169, .L0, "2");
  4. l1 = .l.vv(v2, v1, .L0);
  5. l2 = .l.vlperp(v1, l1, .L0);
  6. c1 = .c.vv(v2, v1, .L0);
  7. v4 = .vonc(c1, 0.0934232, 0.341341, .L0, .cross);
  8. ang = .a.vvv(v1, v2, v4);
  9. l3 = .l.vv(v2, v4, .L0, .longline);
  10. v3 = .v.ll(l3, l2, .red, .L0, .plus);
  11. hyp = .len.vv(v3, v1);
  12. adj = .len.vv(v1, v2);
  13. secant = .len.divide(hyp, adj);
  14. r = .len.times(secant, secant);
  15. const = .len.f(0.2);
  16. rho = .len.times(r, const);
  17. cc = .c.vlen(v2, rho);
  18. v5 = .v.lc(l3, cc, 2, .smear, .L0, .plus);
  19. v6 = .v.lc(l3, cc, 1, .smear, .L0, .plus);
  20.